COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE LINES(I)
C00009 ENDMK
C⊗;
	SUBROUTINE LINES(I)
  
	COMMON/FU/FUJ(512),JJX,RDIV,ADML/MEDGE/MC,MD,RMC,MMD
	COMMON/DRW/JDRW(2000) /JEXCH/JEXCH
	EQUIVALENCE(KNT,JDRW(1))
	COMMON/PLT/JX,JY,JPL,PLT,REV,RINV,ROT,RLR,RUD,CONST,E
	1 ,JREV,JINV,KA,KB,KC,KD,RTO,JA,JB,JAR,JBR,A,IA,IB,IC,ID
	DATA IFLIP/-1/,RDIV/.5/,FUJ(1)/99./
	IF(JEXCH)CALL EXCH(JA,JB)
C TYPE ADD 100 TO 'REV' TO EXCH X AND Y COORDINATES.
	CALL SWITCH
C REVERSE OR INVERT (IN 'SWHβ)
⊂NRA!β!!8A¬
=%
A	%')∨%Q∪∨≤A=$A%∨Qβ)
\4∀∪∪!
+∀PDR]"8rrS∂<A)≡@Lb~∀∪I0{∃α)%≠εVD~∀∪∪_Q%0]≥(\jbH\S%0tjbd\4∀∪∪!β	≠_9∂
\`%∂≡A)<@fd~(∪∃∧{)∧W≠≠⊂U
+∀!∪
∪0!%0RR4∃ε@@≥π≥)HNA∪&↓≠+→(↓
∨$A¬		∪≥≤B@@Q
≥)$b`d@tA≠+→PA)⊃
↓
+≥ε↓¬2@d↓β≥λA¬	λR~(∪∂≡AQ≡@fb4∀fd∪92{∃∧5≠≠λ~(∪∃∧{5≠λW≥dU
+∀!∪
∪0!%0RR4∀fb∪%Q%∨P]→
\DS∂≡AQ≡@r~(∪%0{)α~∀∪I2{∃∧4∀∪β0uβ)β≤HQ%2YI0RTj\\drj\p~∀∪!3 {'E%(Q%`TTdWI2TTd$~∀∪%P{%∨(-β0~∀%∃α{⊃e Uπ∨MλQ%($~∀∪∃λ{⊃3 )'∪≥λ!%(R~(∪∂≡AQ≡@b`4∀r∪∪_Q%∨(9∂(\`%πβ→_↓1π⊂!∃αY∃λR~∀b@∪∃α{)αW∃04∀∪∃∧u∃∧W∃d~∃ε@↓∪A%=(]∂
8`A%∨Qβ)
@d`A	≤\A)≡↓→
(4∀∪~{)α~∀∪8{∃∧~(∪∪QA→(S∂<A)≡@D~∀l∪4{~[∃¬$~∀∪8{≤[∃	$~∃πd∪)3A
@d`1~Y≤Y)0Y∃24∀d`∪→∨%≠βPPi∩l$~∀∪∪_Q∩]D\fS∂<A)≡@L~∀∪π¬→_A%Yπ(Q4Y≤R~(j∪∃βH{∃α~(∪∃¬$u∃∧~∀%%)+I≤~∀f%πβ→_↓%∪-
(Q~Y8R~∀∪≥≡A)≡j~∀~)πεb∪Q3!
@H`Y~Y8Y∃0Y)2~∀b%∪Q!1(]"8ZdS∂<A)≡@P~∀∪π¬→_A!1∨(Q~1≤Y∩R4∀∪%Q+%≤~(h∪∪
1∪ z[%
→∪ 4∀∪∪!∩]"8fS∂≡↓)≡@n4∀∪∪!↔≥(]≥
\d`@]∨$]%
→∪ %%)+I≤~∀∪≥≡A)≡n`~∀\∪∪Q)	%.Q-≥(R]≥(\b`@````@`S∂≡↓)≡@nD~∀n`%↔≥({-≥(Vb4∀nb∪4{~↑p4∀∪≤{8↑p~∀%∪Q~9≥
]↔4S∂≡AQ≡@jl4∀∪∪!∪β¬&!≤[↔≤$]∂(\DS∂≡AQ≡@jj4∀∪∪!≤]"9↔≤S∂<A)≡@Tr~∀j\∪∪Q)	%.Q-≥(Zb$]→(\D````@```S-≥({↔9(Zb~(∪∂≡AQ≡@jp4∀jl∪%Q≤]9
]↔≤%∂≡A)<@jj~(∪∪Q%β¬&Q4[↔~R9→
\b%∂≡A)<@jn~(∪∂≡AQ≡@jj4∀jr∪%Q∃	I.Q↔≥PZbR]1(\b`@````@`S↔≥P{↔≥(4b~∀∪I)+%8~∀jj%∪Q∩9≥
\f%∂≡A)<@bb~(∪↔~zD````4∀∪∂≡↓)≡@p4∀bb∪%Q~[-~]≥
9→~]∨H]≤[↔8]≥
]1≤S∂≡↓)≡@p4∀∪∪!∃	%.!↔≥(ZDR]→(8b```@````%↔≥({-≥(Zb4∀p∪→8{≤[↔8~∀∪→4{_¬6\h4(&\iv44PJ.9vph)U`Liu"5k)A%)↓AA@hP&9vriU@4PJ&→"jJ5uEβ↓AAAβ↓644PJ&→"rJ9uEβ↓A68hP&&→DI:⊗Es→&5vjYEAAβ↓AAAh(&*%∩]".u!%v5\p4(&L1"*∩∃9".:"I:⊗Es↓&.:#j.:Qkλ4(&,r⊂4(hR∞&≥*
J>-"&:∃∧*b∞!DQ2-$hR∞&Kj(4*≤_&)vXh*∞LYv$4T~&⊗t 4(4T~&N,∩J>V$J:∃αUR⊗J<hR∞&≤z66>rzB2Q|Ra2*Jb*B1eα2Q2∀*Y2JLrY2J⎇!2J2∩bJV⊃d~>:N"b∀4*≤_%E↓dRJ⊗YdR&:YdZ¬2.∩b.
2\!2JRzb*¬2T⊃2*ε∩b*
Id	2&¬dJ	2&~b&⊂4T~&*
⊃u@4T~&*∃⊃u@4T~&⊗t 4(4PJNV
∀zVR&t)α∩N$zJQ"Uα1$4PJ∞>6lz9>6,"≡∃>l→26⊃e∩6
2lj⊃>~*z~V)C)EI%dR*a2∀"&Y2"604PJ66⊃jB6⊃>Uα1%*∀"&X4PJ&→""61&lj⊃vJ$JY)"l!>*BbH4*
α↓≡∞⊗u"I≥αM→α6Ve!α~>∩αε∩∩Lr≥¬↓αB∞⊗:%⊃↓EA∩↓uα6,bQαRD)α~Vt→α
eβ⊃αε:"αε∩⊃Hh(&Jl→v6hP&J6≠iUEEry"J6~z*B1Hh(&⊗t 4(4PJNV
∀zVR&t)α&:4JM"6
b6	2l→26⊃dq$4(L"&6⊗u~&>9∧b1!Eβ↓$4(L~>66|q>B2"z*a2UI2*BbbB2Qe∩⊗Y2∀J:Y2∀zQ2Je⊃2JV"b∞>:≥!2∀4PIE↓2U∩⊗Y2TJ:Y2\	2.	dZ
2."bJR=dR¬2*∩b*εIdR
I2
b&¬2L⊃2&
dJ⊂4(L~ε21∧Rj⊗Jxh(&:j6¬=_h(&:∪j6	=_h(&:≠j6
=_h(&:#j6⊃=_h(&&2B9:⊗
qA&9jiD4(LJ→"9L~ε21∧"BfN-!!I2da1EAαH4(&siD4(L~ε21∧Rj⊗Jxh(&∞b1α∩¬J
JQC⊃$4)λJ∞ε2bαε&Z,~Q!5≠AA15∪↓A$4PJ*¬vtλ4(&T⊃v:hP&∞εdaα2&t*M!MHh(&*∪j:4PJ*¬vt⊂4(&≤
21αdJ:⊗MC⊃$4(LR	v: h(&*j:λ4PJ∞ε2bα2&:-→!I$hP&*¬lr∧4(LR	v: h(&∞b1α2Lr⊗M!∩H4(&T	v:∧hP&*	lr4(L~ε21∧b&:⊗~AI$4PJ∞ε2bα*j⊗∀x4)Y3AL&∞b1α∩¬J>VQC⊃$4(L*:⊂4Ph*∞M~V
J⎇*R&:*αN↑&$~ 4*≤_&∞>lj>9>∧bQ>*Bb*e2Uα12Be!2J⊗2bJ&:2bJ>Qe∩2I2∃*⊃2∞|rNQ2(h*∞K	↓2*∀*Y2*LrY2.
b.	2\→2.⊃e∩R=2T	2*	dRεI2T∩I2¬dJ¬2&∩b&
2L 4*∞_J&→"∀*Y::*qA&*j*J⊗2j*∧4T~&&2BJ&:2r:∃9αJ*	vTJ:Y6T⊂4*∞_J⊗:⊂hP4(&≥*
J>-"&:∃∧"B~VrB*~UHh(&∞|j6>9|2U>~,Q!UE∩I2**BbJ∩&2bε∩6bz∩J]|b&NQC⊃AAAHh)ELLJ→"*5)::∃r9↓≥&<yαR=β	d4*~↓αε~$*Iα~Lb∃α:j∃α&~α≡&Z,q1↓≡5*:
≥∧
2>:*α≡⊗R~α&Qα∀
∞-8hP&&→DZ~U:-	9A&<yαR=βλ4(&T2Uv.5(4(&%JB∃↓A2a2T2T4(L:=αRz↓Ed4S	P&~⎇∩6εQB9α~Vt→α~&d)α:εl)⎇↓↓:a⊃$4S	T&~⎇∩6εQCB→$4T~
aLL2>J6
!"¬UHh)D&%JB∃↓ 4(&~∞⊗B"↓Ea2T2T4(LJ→"*5)::∃r9↓≥&<yαR=β	d4(L2V)!
Iueeph*
↓∧	α
2r-α∩,b⊗R⊗~α~V:~αε∞RLz984PJJ⊗R-∩84)H&.~+j*~ThP&∞εdaα~>∀rε5"T2U1≡5*9≥$hR∞
EHJJ⊗↑Lr⊃↓DhR∞&≤
21αL2&2∃C	2*~*H4(&$y↓E]∧YuE1_h)E\M∩⊗ε⊃C	1EaL	2	2⊂h)E`L2>J6
!!N¬*H4)E0JJ⊗ε"AE1E*J¬2λhP&&→D⊃::∃s)IA9αJ≡=α$y↓EXhP&J⊗!!E1)&~VPh(&∞b1α∩¬JN⊗QC→22&≥!1UAαH4(&≤
21αb&:∃C→AY1≠↓A1Q;11MAαH4(&≤
21αb&:∃C→AY1∪	U1Mβ11Ma*H4*∞_J∞ε2bαε&Z,~Q!Ac↓$4(LZev~,Q!E%SAU9A[→AA8hP&∞εdaαε&4*∞Q!≠↓Y2.JH4(&$y↓MI∧YuI1+	I1LhP&.e∪j~V)DY%)a*qA-Mβ↓84(L~ε21¬∩Z⊗∞"AE2.K⊃6.eHh)MHLZev.K⊂4(&≤
21α%αf>V"AM$4PJ⊗:⊂hP&NV∃∩>VRLr∃α∩ h(&∞|j6>9|"J]>T"J]!∪↓AA$hQL&J-:&:⊃β⊃D4)0J-v*%∩]!EJYD4(Hh(&&2B-:2*qIAEL:=αRz↓T4(LR∩J]C	%uIβ4(&[iIADhQT&↑∀JR∃!∪	1EIαJ,4)⊃@&~⎇∩6εQB9↓eeKI↓↓Eα92%Qb9↓A↓α↓A↓Aβ↓↓A↓α↓A≥$hP&)u8h(&1k@4(&$y↓EI∧YuE2T"J]!
I1`4PJ&→"ZZ):2"r*∩J:AE%&<yαR=β	H4(LQv*∩∃9!E%lX4(&cj)-DhQEH&=∩&R∃C⊃E1E
J11"T"J]"rI29vZb-.)Hh(&∞b1α⊗DJP4)λ&~>∀jεQ!:↓eeeJ92%McB%EAHh(&⊗t 4(